
*****************
** Tables S2 & S3
*****************


* Packages
ssc install loevh, replace

* Open data
use "DataFinal.dta", replace

* Fairness
loevh fair1 fair2 fair3 if haspos == 1 & comprehension_passed == 1 & speeder == 0
alpha fair1 fair2 fair3 if haspos == 1 & comprehension_passed == 1 & speeder == 0

* Decision acceptance
loevh decacc1 decacc2 if haspos == 1 & comprehension_passed == 1 & speeder == 0
alpha decacc1 decacc2 if haspos == 1 & comprehension_passed == 1 & speeder == 0

* Stata's loevh does not provide crit-values; these can be obtained using the mokken package in R
